VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TestProjectFixtureNotify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mProject As ProjectFixture
Private mProjectStart As ProjectFixture
Private mEndCalled As Boolean

Public Sub testProjectNotify()
givenProject
whenProjectIsRun
thenStartGivesProject
thenEndCalled
End Sub

''
''
Private Sub givenProject()
Set mProject = New ProjectFixture
End Sub

Private Sub whenProjectIsRun()
mProject.forward Me
End Sub

Private Sub thenStartGivesProject()
assert.equals mProjectStart, mProject, "same project"
End Sub
Private Sub thenEndCalled()
assert.isTrue mEndCalled, "End called"
End Sub

''

'Callbacks
Public Sub StartProject(project As ProjectFixture)
Set mProjectStart = project
End Sub
Public Sub EndProject()
mEndCalled = True
End Sub

'OPTIONAL METHODS
Public Sub setup()
mEndCalled = False
End Sub

Public Function NumOfAsserts() As Long
NumOfAsserts = 2
End Function

